home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / AD.PSOFTWARE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  15KB  |  274 lines
  1. 10  TEXT 
  2. 15 :
  3. 20 TITLE$ = " PERSONALITY  PROFILE ": GOSUB 1315
  4. 25  HOME 
  5. 30  VTAB 4: PRINT "     THIS IS A NEW SELF-ANALYTIC PROGRAMTHAT IS ASTUTE IN ITS ACCURACY AT"
  6. 35  PRINT "DETERMINING ONE'S PERSONALITY DYNAMICS.": PRINT 
  7. 40  PRINT "     THIS WILL GIVE YOU SOME BRILLIANT  INSIGHTS INTO WHO YOU REALLY ARE.  NO   MATTER WHAT KIND OF PERSONALITY ANALYSIS";
  8. 45  PRINT "YOU HAVE TAKEN BEFORE, YOU WILL AGREE   THAT THIS IS THE BEST.": PRINT 
  9. 50  PRINT "     THIS PROGRAM ALSO INCLUDES USEFUL  TUTORIALS ON UNDERSTANDING PERSONALITY  GROWTH AND DEVELOPMENT."
  10. 55  PRINT : PRINT 
  11. 60  GOSUB 1145
  12. 65  INVERSE : HTAB 12: PRINT "PERSONALITY PROFILE": NORMAL : PRINT 
  13. 70  PRINT : PRINT : SPEED= 100: PRINT "THIS PROGRAM CONTAINS THE FOLLOWING:": SPEED= 255: PRINT : PRINT 
  14. 75 A$ = "PERSONALITY ANALYSIS": GOSUB 1045: GOSUB 1040
  15. 80  PRINT 
  16. 85 A$ = "ANALYSIS INTERPRETATION": GOSUB 1045: GOSUB 1040
  17. 90  PRINT 
  18. 95 A$ = "UNDERSTANDING ANGER": GOSUB 1045: GOSUB 1040
  19. 100  PRINT 
  20. 105 A$ = "DIFFERENCES OF RESCUING AND HELPING": GOSUB 1045: GOSUB 1040
  21. 110  PRINT 
  22. 115 A$ = "INDULGING AND NURTURING": GOSUB 1045: GOSUB 1040
  23. 120  PRINT 
  24. 125 A$ = "STROKING AND DISCOUNTING": GOSUB 1045: GOSUB 1040
  25. 130  PRINT : PRINT : GOSUB 1145
  26. 135  INVERSE : HTAB 12: PRINT "PERSONALITY PROFILE": NORMAL : PRINT 
  27. 140  PRINT "     MAN HAS ALWAYS BEEN CURIOUS TO FINDOUT WHO HE REALLY IS AND HOW HE         FUNCTIONS.": PRINT 
  28. 145  PRINT "     THE DYNAMICS OF THE HUMAN          PERSONALITY ARE ENDLESSLY FASCINATING.  WITH THIS PROGRAM YOU WILL BE ABLE TO   EXPLORE YOUR OWN PERSONALITY AND        UNDERSTAND YOUR BEHAVIOR."
  29. 150  VTAB 13: HTAB 20: INVERSE : PRINT "$29.50": NORMAL : VTAB 20
  30. 155  GOSUB 1145
  31. 160 TITLE$ = "ASSERTIVENESS TRAINING": GOSUB 1315
  32. 165  HOME 
  33. 170  PRINT "     THIS NEW PROGRAM GIVES YOU THE HELPTO BECOME THE PERSON THAT YOU HAVE      ALWAYS WANTED TO BE.": PRINT 
  34. 175  PRINT "     FIRST, THERE IS AN ANALYSIS TO     DETERMINE HOW ASSERTIVE YOU ACTUALLY ARE"
  35. 180  PRINT "    THEN THE ART OF ASSERTIVENESS IS    CLEARLY DEFINED WITH TUTORIALS DEALING  WITH ALL MAJOR ASPECTS OF BEING         ASSERTIVE.": PRINT 
  36. 185  PRINT "     YOU CAN EVEN LEARN HOW TO SAY ";: INVERSE : PRINT "NO": NORMAL : PRINT "WITHOUT FEELING GUILTY.": PRINT : PRINT : PRINT 
  37. 190  GOSUB 1145
  38. 195  INVERSE : HTAB 10: PRINT "ASSERTIVENESS TRAINING": NORMAL : PRINT 
  39. 200  PRINT : PRINT : SPEED= 100: PRINT "THIS PROGRAM CONTAINS THE FOLLOWING:": SPEED= 255: PRINT : PRINT 
  40. 205 A$ = "WHAT IS ASSERTIVENESS?": GOSUB 1045: GOSUB 1040: PRINT 
  41. 210 A$ = "HOW ASSERTIVE ARE YOU?": GOSUB 1045
  42. 215 A$ = "AN EVALUATION": GOSUB 1045: GOSUB 1040
  43. 220  PRINT :A$ = "VERBAL ASSERTIVENESS TRAINING": GOSUB 1045: GOSUB 1040: PRINT 
  44. 225 A$ = "NON-VERBAL ASSERTIVENESS TRAINING": GOSUB 1045: GOSUB 1040: PRINT 
  45. 230 A$ = "ASSERTIVENESS TOOLS": GOSUB 1045: GOSUB 1040: PRINT 
  46. 235 A$ = "SOME SPECIAL PROBLEMS": GOSUB 1045: GOSUB 1040: PRINT 
  47. 240  GOSUB 1145
  48. 245  VTAB 10: PRINT "     THE FOLLOWING IS AN EXCERPT FROM   ONE OF THE ASSERTIVENESS TRAINING FILES.IT COMPARES AND DIFFERENTIATES THE FOUR BASIC BEHAVIOR APPROACHES.": PRINT 
  49. 250  PRINT "     SOME OF THE TERMINOLOGY IS TAKEN   FROM TRANSACTIONAL ANALYSIS AND GESTALT THERAPY.": PRINT : PRINT 
  50. 255  GOSUB 660
  51. 260  TEXT : HOME : INVERSE : HTAB 15: PRINT "CHARACTERISTICS"
  52. 265  HTAB 18: VTAB 5: PRINT "PASSIVE"
  53. 270  HTAB 17: VTAB 10: PRINT "AGGRESSIVE"
  54. 275  HTAB 16: VTAB 15: PRINT "MANIPULATIVE"
  55. 280  HTAB 17: VTAB 20: PRINT "ASSERTIVE": NORMAL 
  56. 285  VTAB 3: PRINT "LIFE POSITION"
  57. 290  VTAB 7: PRINT "I'M NOT OK"
  58. 295  VTAB 12: PRINT "YOU'RE NOT OK"
  59. 300  VTAB 17: PRINT "YOU'RE NOT OK BUT I'LL LET YOU THINK    YOU ARE"
  60. 305  VTAB 22: PRINT "I'M OK AND YOU'RE OK
  61. 310  GOSUB 625
  62. 315  VTAB 3: PRINT "LIFE ROLE"
  63. 320  VTAB 7: PRINT "SHEEP"
  64. 325  VTAB 12: PRINT "BEARS"
  65. 330  VTAB 17: PRINT "SNAKES"
  66. 335  VTAB 22: PRINT "REAL PEOPLE"
  67. 340  GOSUB 625
  68. 345  VTAB 3: PRINT "LIFE GAMES"
  69. 350  VTAB 7: PRINT "IF IT WEREN'T FOR YOU -  KICK ME -      WHY DOES IT ALWAYS HAPPEN TO ME?
  70. 355  VTAB 12: PRINT "ZAP!  I GOT YOU!"
  71. 360  VTAB 17: PRINT "I'M SMILING WHILE STABBING YOU IN THE   BACK"
  72. 365  VTAB 22: PRINT "LET'S PLAY TENNIS"
  73. 370  GOSUB 625
  74. 375  VTAB 3: PRINT "SELF-SUFFICIENCY"
  75. 380  VTAB 7: PRINT "LOW"
  76. 385  VTAB 12: PRINT "MEDIUM"
  77. 390  VTAB 17: PRINT "LOOKS HIGH BUT IS USUALLY LOW"
  78. 395  VTAB 22: PRINT "USUALLY HIGH"
  79. 400  GOSUB 625
  80. 405  VTAB 3: PRINT "DECISION MAKING"
  81. 410  VTAB 7: PRINT "OTHERS CHOOSE FOR THEM
  82. 415  VTAB 12: PRINT "THEY CHOOSE FOR OTHERS AND THEY KNOW IT"
  83. 420  VTAB 17: PRINT "CHOOSE FOR OTHERS AND THEY DON'T KNOW IT"
  84. 425  VTAB 22: PRINT "CHOOSES FOR SELF"
  85. 430  GOSUB 625
  86. 435  VTAB 3: PRINT "PEOPLE THEY MAKE IMPORTANT"
  87. 440  VTAB 7: PRINT "EVERYONE BUT SELF"
  88. 445  VTAB 12: PRINT "PASSIVE PEOPLE"
  89. 450  VTAB 17: PRINT "ANYONE THEY CAN MANIPULATE"
  90. 455  VTAB 22: PRINT "THEMSELF"
  91. 460  GOSUB 625
  92. 465  VTAB 3: PRINT "FEEDBACK THEY GET FROM OTHERS"
  93. 470  VTAB 7: PRINT "GUILT, ANGER, FRUSTRATION, DISRESPECT"
  94. 475  VTAB 12: PRINT "HURT, DEFENSIVE, HUMILIATED"
  95. 480  VTAB 17: PRINT "CONFUSION, FRUSTRATION, ANGER"
  96. 485  VTAB 22: PRINT "RESPECT, LOVE, CARING"
  97. 490  GOSUB 625
  98. 495  VTAB 3: PRINT "SOCIAL PATTERN"
  99. 500  VTAB 7: PRINT "PUT THEMSELVES DOWN"
  100. 505  VTAB 12: PRINT "BOOST THEIR EGO BY PUTTING OTHERS DOWN"
  101. 510  VTAB 17: PRINT "PRETEND TO COMPLIMENT WHILE PUTTING DOWN"
  102. 515  VTAB 22: PRINT "GIVING AND LOVING"
  103. 520  GOSUB 625
  104. 525  VTAB 3: PRINT "DEFENSIVE PATTERN"
  105. 530  VTAB 7: PRINT "FLEES OR GIVES IN
  106. 535  VTAB 12: PRINT "OUTRIGHT ATTACK"
  107. 540  VTAB 17: PRINT "CONCEALED ATTACK"
  108. 545  VTAB 22: PRINT "EVALUATES AND ACTS"
  109. 550  GOSUB 625
  110. 555  VTAB 3: PRINT "ACTION PATTERN"
  111. 560  VTAB 7: PRINT "UNDER-REACTS"
  112. 565  VTAB 12: PRINT "OVER-REACTS"
  113. 570  VTAB 17: PRINT "ACTS INDIRECTLY"
  114. 575  VTAB 22: PRINT "ACTS DIRECTLY"
  115. 580  GOSUB 625
  116. 585  VTAB 3: PRINT "SUCCESS PATTERN"
  117. 590  VTAB 7: PRINT "FAILS OR LUCKS OUT"
  118. 595  VTAB 12: PRINT "BEATS OUT OTHERS"
  119. 600  VTAB 17: PRINT "WINS BY MANIPULATING OTHERS"
  120. 605  VTAB 22: PRINT "WINS HONESTLY"
  121. 610  GOSUB 660
  122. 615 :
  123. 620  GOTO 675
  124. 625  PRINT "                   <PRESS SPACE BAR> ": GET A$
  125. 630  VTAB 3: PRINT "                                                                               "
  126. 635  VTAB 7: PRINT "                                                                               "
  127. 640  VTAB 12: PRINT "                                                                               "
  128. 645  VTAB 17: PRINT "                                                                               "
  129. 650  VTAB 22: PRINT "                                                                               "
  130. 655  RETURN 
  131. 660  PRINT "            <PRESS SPACE BAR> ": GET A$
  132. 665  FOR I = 1 TO 20: POKE 32,20 -I: POKE 33,2 *I: HOME : NEXT : GOSUB 670: RETURN 
  133. 670  FOR J = 1 TO PAUSE: NEXT : RETURN 
  134. 675 :
  135. 680  VTAB 10: PRINT "     THE ASSERTIVENESS TRAINING PROGRAM IS ALL THAT YOU WOULD WANT AND MORE TO  ASSIST YOU IN STATING YOUR NEEDS AND    GETTING THEM MET.": PRINT : PRINT 
  136. 685  HTAB 20: INVERSE : PRINT "$29.50": NORMAL : VTAB 20
  137. 690  GOSUB 1145
  138. 695 TITLE$ = "  STRESS  MANAGEMENT   ": GOSUB 1315
  139. 700  HOME 
  140. 705  PRINT "     IN THIS AGE OF STRESS FROM EVERY   FACET OF OUR LIFE, DEALING WITH THIS    PROBLEM IS OF THE UTMOST IMPORTANCE.": PRINT 
  141. 710  PRINT "     MANY OF OUR PHYSICAL AILMENTS ARE  SIMPLY A RESULT OF LIFE STRESS AND NOT  KNOWING HOW TO DEAL WITH IT EFFECTIVELY.": PRINT 
  142. 715  PRINT "     THIS NEW PROGRAM DEFINES EXACTLY   WHAT STRESS IS AND WHAT CAUSES IT.  IT  MEASURES THE STRESS IN YOU LIFE, GRAPHS IT, AND HELPS TO DEAL WITH IT' CAUSES.": PRINT 
  143. 720  PRINT "     THIS PROGRAM GIVES YOU ALL THIS    INFORMATION AND MORE, TO REDUCE THE     STRESS IN YOUR LIFE.": PRINT 
  144. 725  GOSUB 1145
  145. 730  INVERSE : HTAB 12: PRINT "STRESS MANAGEMENT": NORMAL : PRINT 
  146. 735  PRINT : PRINT : SPEED= 100: PRINT "THIS PROGRAM CONTAINS THE FOLLOWING:": SPEED= 255: PRINT : PRINT : POKE 32,8
  147. 740  VTAB 8:CHAR$ = "YOUR STRESS QUOTIENT": GOSUB 1275: GOSUB 1040: PRINT 
  148. 745 CHAR$ = "WHAT IS STRESS": GOSUB 1275: GOSUB 1040: PRINT 
  149. 750 CHAR$ = "ON STRESS MANAGEMENT": GOSUB 1275: GOSUB 1040: PRINT 
  150. 755 CHAR$ = "YOUR STRESS GRAPH": GOSUB 1275: GOSUB 1040: PRINT 
  151. 760 CHAR$ = "A SELF EVALUATION": GOSUB 1275: GOSUB 1040: PRINT 
  152. 765 CHAR$ = "A FRIENDLY TALK": GOSUB 1275: GOSUB 1040: PRINT 
  153. 770 CHAR$ = "THE STRESS SCALE": GOSUB 1275: GOSUB 1040: PRINT : POKE 32,0
  154. 775  GOSUB 1145
  155. 780  INVERSE : HTAB 12: PRINT "STRESS MANAGEMENT": NORMAL : PRINT 
  156. 785  PRINT "     YOU WILL FIND THIS PROGRAM AS      USEFUL AS IT IS FASCINATING.": PRINT 
  157. 790  PRINT "     IT IS ONE OF THOSE PROGRAMS THAT   YOU CAN RUN OVER AND OVER SINCE WE NEED A CONSTANT REMINDER THAT STRESS IS SOME-THING THAT CAN BE CONTRILLED.": PRINT 
  158. 795  VTAB 13: HTAB 20: INVERSE : PRINT "$29.50": NORMAL : VTAB 20
  159. 800  GOSUB 1145
  160. 805 TITLE$ = " THE  DREAM  MACHINE  ": GOSUB 1315
  161. 810  HOME : VTAB 5
  162. 815  PRINT "     THIS IS THE MOST COMPLETE PROGRAM  EVER WRITTEN TO EVALUATE AND HELP YOU   ANALYZE YOUR DREAMS.": PRINT 
  163. 820  PRINT "     WITH THIS PROGRAM YOU ARE ABLE TO  GESTALT YOUR DREAM IMAGES AND UNDERSTANDWHAT YOUR DREAMS ARE TELLING YOU.": PRINT 
  164. 825  PRINT "     NOT ONLY ARE THERE HELPFUL         TUTORIALS, THERE IS ALSO A DREAM        DICTIONARY WITH OVER 200 LISTINGS.": PRINT 
  165. 830  PRINT "     THE FLIP SIDE OF THE DISK CONTAINS A DREAM LOG WHICH ALLOWS YOU TO FILE    YOUR DREAMS.": PRINT 
  166. 835  GOSUB 1145
  167. 840  VTAB 10: PRINT "     ALSO INCLUDED IN THIS PACKAGE IS   THE 123 PAGE ILLUSTRATED BOOK:": PRINT 
  168. 845  HTAB 15: VTAB 15: INVERSE : PRINT "BEYOND DREAMING": NORMAL : VTAB 22
  169. 850  GOSUB 1145
  170. 855  INVERSE : HTAB 13: PRINT "THE DREAM MACHINE": NORMAL : PRINT 
  171. 860  PRINT : PRINT : SPEED= 100: PRINT "THIS PROGRAM CONTAINS THE FOLLOWING:": SPEED= 255: PRINT : PRINT 
  172. 865 A$ = "WHAT DREAMS ARE ALL ABOUT": GOSUB 1045: GOSUB 1040: PRINT 
  173. 870 A$ = "WHAT DO MY DREAMS MEAN?": GOSUB 1045: GOSUB 1040: PRINT 
  174. 875 A$ = "WHAT ARE MY DREAM TEACHING ME: GOSUB 5020: GOSUB 5010: PRINT
  175. 880 A$ = "UNDERSTANDING DREAM SYMBOLS": GOSUB 1045: GOSUB 1040: PRINT 
  176. 885 A$ = "UNDERSTANDING DREAM DYNAMICS": GOSUB 1045: GOSUB 1040: PRINT 
  177. 890 A$ = "THE DREAM DICTIONARY": GOSUB 1045: GOSUB 1040: PRINT 
  178. 895 A$ = "YOUR DREAM LOG": GOSUB 1045: GOSUB 1040: PRINT 
  179. 900  GOSUB 1145
  180. 905  INVERSE : HTAB 13: PRINT "THE DREAM MACHINE": NORMAL : PRINT 
  181. 910  PRINT "    DREAMS AND DREAM INTERPRETATION HAVEFASCINATED MAN FROM THE BEGINNING OF    RECORDED TIME.": PRINT 
  182. 915  PRINT "     WE SPEND OVER HALF OUR LIVES SLEEP-ING AND DREAMING.  OUR DREAMS ARE FILLEDWITH HELPFUL INFORMATION ABOUT OUR      EVERYDAY LIFE.": PRINT 
  183. 920  PRINT "     THIS PROGRAM IS FOR ANYONE WHO HAS EVER WANTED TO KNOW WHAT THEIR DREAMS   MEAN, AND HOW TO USE THE INFORMATION.": PRINT 
  184. 925  HTAB 21: VTAB 18: INVERSE : PRINT "$49.50": NORMAL : VTAB 23
  185. 930  GOSUB 1145
  186. 935  INVERSE : HTAB 8: PRINT "PSYCHOLOGICAL PSOFTWARE": NORMAL : PRINT 
  187. 940  HTAB 4: VTAB 6: INVERSE :CHAR$ = "THE MOST EXCITING GAME IS LIFE": GOSUB 1275: GOSUB 1040: PRINT 
  188. 945  HTAB 6:CHAR$ = "LET US MAKE YOU A WINNER !": GOSUB 1275: GOSUB 1040: NORMAL : PRINT 
  189. 950  FOR X = 1 TO 1500: NEXT 
  190. 955  HOME : INVERSE : HTAB 8: PRINT "PSYCHOLOGICAL PSOFTWARE": NORMAL : PRINT 
  191. 960  PRINT "PERSONALITY PROFILE - $29.50": PRINT 
  192. 965  PRINT "ASSERTIVENESS TRAINING - $ 29.95": PRINT 
  193. 970  PRINT "STRESS MANAGEMENT - $29.50": PRINT 
  194. 975  PRINT "THE DREAM MACHINE - $49.50": PRINT : PRINT 
  195. 980  PRINT "TO ORDER SEND CHECK OR MONEY ORDER TO:": PRINT 
  196. 985  HTAB 8: PRINT "PSYCHOLOGICAL PSOFTWARE                   4757 SUN VALLEY RD.                     DEL MAR, CA. 92014": PRINT 
  197. 990  PRINT : PRINT "PLEASE ADD $1.50 FOR SHIPPING ON ANY    SIZE ORDER.  IN CALIF. ADD 6% SALES TAX.": PRINT 
  198. 995  GOSUB 1145
  199. 1000  VTAB 20: PRINT "WOULD YOU LIKE TO SEE THIS AD AGAIN? Y/N": GET B$
  200. 1005  IF B$ = "N"  THEN 1025
  201. 1010  IF B$ = "Y"  THEN 15
  202. 1015  IF B$ < >"N"  OR B$ < >"Y"  THEN 1020
  203. 1020  VTAB 10: PRINT "YOU MUST PRESS A 'Y' OR AN 'N'.": FOR X = 1 TO 1000: NEXT X: GOTO 1000
  204. 1025  TEXT : HOME : VTAB 12: HTAB 14: PRINT "THANK YOU"
  205. 1030  PRINT  CHR$(4);"RUN AD.MENU"
  206. 1040  FOR X = 1 TO 500: NEXT : RETURN 
  207. 1045 :
  208. 1060 V =  PEEK(37)
  209. 1065 S$ = "": FOR X = 1 TO 20 - LEN(A$)/2:S$ = S$ +" ": NEXT 
  210. 1070 A$ = S$ +A$ +S$: IF  LEN(A$)/2 < > INT( LEN(A$)/2)  THEN A$ = A$ +" "
  211. 1075  FOR X = 1 TO 20:PR$ =  LEFT$(A$,X) + RIGHT$(A$,X): VTAB V: HTAB 21 -X: PRINT PR$: NEXT X: GOSUB 1040: RETURN 
  212. 1080 D$ =  CHR$(4)
  213. 1085  PRINT : PRINT : PRINT : PRINT "   PRESS (R) TO RE-RUN                     PRESS (M) FOR MENU.                     PRESS (Q) TO QUIT. ": GET R$: PRINT D$
  214. 1090  IF R$ = "R" GOTO 1115
  215. 1095  IF R$ = "M" GOTO 1120
  216. 1100  IF R$ = "Q" GOTO 1125
  217. 1105  IF R$ < >"Q"  OR R$ < >"M"  OR R$ < >"R"  THEN 1085
  218. 1110  PRINT : PRINT "* PRESS ANY KEY TO CONTINUE *": GET A$: FOR X = 23 TO 0  STEP  -1: POKE 34,X: HOME : NEXT : RETURN 
  219. 1115  TEXT : HOME : GOTO 70
  220. 1120  PRINT D$;"RUN MENU"
  221. 1125  TEXT : HOME : VTAB 12: HTAB 14: PRINT "THANK YOU"
  222. 1130  PRINT "            <<PRESS SPACE BAR>> ": GET A$: RETURN 
  223. 1135  POKE 33,1: FOR Z = 0 TO 5: FOR X = 0 TO 39: POKE 32,X: CALL  -912: CALL  -912: POKE 32,39 -X: CALL  -912: CALL  -912: NEXT : NEXT 
  224. 1140  POKE 32,0: POKE 33,40: RETURN 
  225. 1145  PRINT "            <<PRESS SPACE BAR>> ": GET A$
  226. 1150 WD = 0: FOR Z = 0 TO 31:WD = WD +1: POKE 33,WD: POKE 32,0: CALL  -912: POKE 32,39 -Z: CALL  -912: NEXT 
  227. 1155  POKE 32,0: POKE 33,40: TEXT : HOME : RETURN 
  228. 1160  GOTO 1145
  229. 1165  SPEED= 255
  230. 1170  HTAB 20 -( LEN(A$)/2): PRINT A$: RETURN 
  231. 1190  FOR W = 1 TO 800: NEXT W: RETURN 
  232. 1195 C = (40 - LEN(A$))/2:D =  LEN(A$) +C
  233. 1200  HTAB C: PRINT A$;
  234. 1205  HTAB D -1
  235. 1210  FOR W = 1 TO 500: NEXT W
  236. 1215  FOR T =  LEN(A$) TO 1  STEP  -1
  237. 1220  PRINT " ";
  238. 1225 D = D -1: HTAB D -1
  239. 1230  NEXT T
  240. 1235  RETURN 
  241. 1240  FOR S = 1 TO 20:SOUND =  PEEK(A) - PEEK(A) + PEEK(A): NEXT S: RETURN 
  242. 1265  FOR C =  LEN(A$) TO 1  STEP  -1
  243. 1270  HTAB C: PRINT  MID$ (A$,C,1);
  244. 1275  FOR P = 1 TO  LEN(CHAR$)
  245. 1280 A =  -16336
  246. 1285  PRINT  MID$ (CHAR$,P,1);
  247. 1290 SOUND =  PEEK(A) - PEEK(A) + PEEK(A)
  248. 1295  FOR Y = 1 TO 60
  249. 1300  NEXT : NEXT 
  250. 1305  PRINT 
  251. 1310  RETURN 
  252. 1315  TEXT : HOME :L = 25
  253. 1320  PRINT  CHR$(7);
  254. 1325  VTAB 8: HTAB 9: PRINT "****************************"
  255. 1330  VTAB 12: HTAB 9: PRINT "****************************"
  256. 1335  VTAB 9: FOR I = 1 TO 3
  257. 1340  HTAB 9: PRINT "*";: HTAB 36: PRINT "*": NEXT I: FLASH 
  258. 1345  VTAB 10: HTAB 12: PRINT TITLE$: NORMAL 
  259. 1350  POKE  -16368,0
  260. 1355  VTAB 23: PRINT "                 <<<PRESS SPACE BAR>>>"
  261. 1360  FOR I = 1 TO 2  STEP 0: VTAB 8: FOR J = 9 TO 35: HTAB J: PRINT " ";: FOR D = I TO L: NEXT D
  262. 1365  HTAB J: PRINT "*";: NEXT J
  263. 1370  IF  PEEK( -16384) >127  THEN 1415
  264. 1375  FOR J = 8 TO 11: VTAB J: HTAB 36: PRINT "*": FOR D = 1 TO L: NEXT D: HTAB 36: PRINT " ";: NEXT J
  265. 1380  IF  PEEK( -16384) >127  THEN 1415
  266. 1385  VTAB 12: FOR J = 36 TO 9  STEP  -1
  267. 1390  HTAB J: PRINT " ";: FOR D = 1 TO L: NEXT D: HTAB J: PRINT "*";: NEXT J
  268. 1395  IF  PEEK( -16384) >127  THEN 1415
  269. 1400  FOR J = 12 TO 9  STEP  -1: HTAB 9: VTAB J: PRINT " ";: FOR D = 1 TO L: NEXT D: HTAB 9: PRINT "*";: NEXT J
  270. 1405  IF  PEEK( -16384) >127  THEN 1415
  271. 1410  NEXT I
  272. 1415  POKE  -16368,0
  273. 1420  PRINT  CHR$(7)
  274. 1425  RETURN